perm filename OO1.FAI[TMP,LCS]1 blob sn#152192 filedate 1975-03-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE OO
C00003 00003	MVM:	HRLI OU,400000(MA)
C00005 00004	BACK:	HRRZI 6,-2(CX)
C00006 00005	FIXIT:	SETZM OUTFLG
C00008 00006	GETO:	MOVEM EN,TMP
C00010 ENDMK
C⊗;
	TITLE OO
	EXTERNAL JOBDDT,JOBOPC
	EN←7 ↔ TS←10 ↔ OU←11
	CX←13 ↔ MA←14 ↔ N←15
INT:	RESET
	OUTSTR CRLF
STAR:	HRRZI N,MEM
	CLRBFI
	OUTSTR ASTR
	INCHWL EN
	CAIN EN,15
	JRST STAR
	CAIN EN,612
	JRST DDTST
	HRRZI TS,(N)
INLIN:	HRRZM EN,(TS)
	SETZM 1(TS)
	ADDI TS,2
	INCHRS EN
	CAIA
	JRST INLIN
	SUBI TS,4
	HRRZ EN,2(TS)
	TRNN EN,600
	JRST MAIN
	SETOM OUTFLG
	TRNE EN,400
	SETOM RFLG
	CAIE EN,301
	JRST .+3
	SETOM ADFLG
	JRST .+4
	CAIE EN,314
	JRST MAIN+1
	SETOM LITF
	ADDI TS,2
	OUTSTR CRLF
MAIN:	OUTSTR SPACE
	HRRZI MA,MEM
	HRRZI CX,(N)
	JRST BGIN
MVM:	HRLI OU,400000(MA)
	HRRZI 6,2
	JRST LMVM
LAEQ:	HRRZI 6,2
	CAIE OU,(MA)
	ADDI 6,2
	SUBI 5,2
	HLL OU,(5)
LMVM:	MOVEM OU,(5)
	SETZM 1(5)
	ADDI 5,2
	SUBI TS,(6)
	ADDI 6,(5)
	HRLZI 6,(6)
	HRRI 6,(5)
	BLT 6,(TS)
	JRST LKMO
FDEQ:	MOVE 4,(MA)
	HRRZI 5,(N)
LKMO:	CAMN 4,(5)
	JRST EQU
ADIN:	ADDI 5,2
	CAIGE 5,(TS)
	JRST LKMO
	ADDI MA,2
BGIN:	CAIGE MA,(N)
	JRST FDEQ
	HRRZI MA,(CX)
	ADDI N,2
	CAIGE N,(TS)
	JRST FDEQ
	JRST BACK
EQU:	HRRZI OU,(MA)
	CAILE TS,2(5)
	CAIG N,2(MA)
	JRST CKLA
	MOVE 6,2(MA)
	CAMN 6,2(5)
	HRRI OU,2(MA)
CKLA:	CAIGE 5,2(N)
	JRST .+4
	HRRZ 6,-2(5)
	CAIN MA,2(6)
	JRST LAEQ
	CAIE OU,(MA)
	JRST MVM
	SKIPGE 1(5)
	JRST ADIN
	HRLI OU,400001(OU)
	AOJ OU,
	MOVEM OU,1(5)
	CAIGE CX,-2(TS)
	JRST ADIN
BACK:	HRRZI 6,-2(CX)
	ADDI 6,2
	SKIPGE 1(6)
	JRST NEGA+1
	SKIPGE OU,(6)
	AOBJN OU,NEGA
	HRRZI OU,(6)
	HRLI OU,400000(6)
NEGA:	MOVEM OU,1(6)
	CAIGE 6,-2(TS)
	JRST BACK+1
	CAIE TS,2(CX)
	JRST NOT1
	SUBI TS,2
	MOVE EN,(TS)
	SKIPL OUTFLG
	JRST GETO
	SUB OU,ONEB
	CAME OU,(CX)
	CAIN CX,(OU)
	CAIA
	AOBJN OU,FIXIT
	HRRZI OU,1(CX)
	HRLI OU,400000(OU)
	JRST FIXIT-1
NOT1:	HRRZI EN,-2(TS)
	HRLI EN,400000(CX)
	MOVE OU,EN
	AOBJP OU,
	SKIPL OUTFLG
	JRST GETO
	MOVEM EN,(TS)
	MOVEM OU,1(TS)
	HRRZI OU,1(TS)
	HRLI OU,400000(OU)
	SKIPL ADFLG
	ADDI TS,2
FIXIT:	SETZM OUTFLG
	HRRZI 6,MEM
	SKIPGE EN,TMP
	HRRZI 6,(EN)
	ADDI 6,2
	CAIL 6,(CX)
	JRST NSEEN
	CAME EN,(6)
	JRST .-4
	SKIPGE ADFLG
	JRST ADER
CKFLS:	MOVEM OU,1(6)
	SKIPGE RFLG
	JRST RPLACE
	SKIPL LITF
	JRST GETO
	SUB OU,ONEB
	MOVEM OU,1(6)
	SETZM LITF
	JRST GETO
NSEEN:	MOVEM EN,(TS)
	HRRZI 6,(TS)
	ADDI TS,2
	JRST CKFLS
RPLACE:	HRR OU,(OU)
	TLZ OU,400000
	TRO OU,400000
	MOVEM OU,1(6)
	SETZM RFLG
	JRST GETO
ADER:	MOVE 5,1(6)
	MOVE 4,-1(5)
	MOVEM 4,(TS)
	MOVEM 5,1(TS)
	MOVE 4,-1(OU)
	MOVEM 4,2(TS)
	MOVEM OU,3(TS)
	HRRZI OU,2(TS)
	HRLI OU,400000(TS)
	MOVEM OU,4(TS)
	AOBJP OU,
	MOVEM OU,5(TS)
	HRRZI OU,5(TS)
	HRLI OU,400000(OU)
	MOVEM OU,1(6)
	ADDI TS,6
	SETZM ADFLG
GETO:	MOVEM EN,TMP
	HRRM TS,STAR
	HRRZI MA,(TS)
	HRLI MA,700
	ADDI TS,200
	TLZN OU,400000
	TRNN OU,400000
	JRST GOUT
	MOVE EN,OU
	HRRZI 4,777775
	JRST MKOUT
PUDO:	HRLI OU,(4)
	PUSH TS,OU
	MOVE OU,EN
GOUT:	HLRZ 4,OU
MOR:	MOVE EN,(4)
	TLZE EN,400000
	JRST PUDO
	TRNN EN,400000
	JRST DPCH
MKOUT:	HLRZ 6,EN
	HRLI EN,(EN)
	TRZ EN,400000
	MOVEM EN,(6)
	CAIA
DPCH:	IDPB EN,MA
ADO:	ADDI 4,2
	CAIG 4,(OU)
	JRST MOR
	TLNN TS,777777
	JRST TYOUT
	POP TS,OU
	HLRZ 4,OU
	JRST ADO
TYOUT:	HRRZI EN,15
	IDPB EN,MA
	HRRZI EN,12
	IDPB EN,MA
	SETZ EN,
	IDPB EN,MA
	SUBI TS,177
	OUTSTR (TS)
	JRST STAR
DDTST:	SKIPN JOBDDT
	JRST STAR
	HRRZI OU,INT
	MOVEM OU,JOBOPC
	HRRZ OU,JOBDDT
	JRST (OU)
CRLF:	64240,,
ASTR:	250000,,
SPACE:	200000,,
ONEB:	1,,1↔	TMP:	0
OUTFLG:	0   ↔	RFLG:	0
LITF:	0   ↔	ADFLG:	0
MEM:	BLOCK 21000
	END INT